5 POKE53280,.:POKE53281,.
10 GOSUB 60000
11 PRINT"[147][154] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
12 [153]"CONT (null)   FOR    (null)RIGHT$(null)STR$ LENLEFT$RIGHT$(null)(null) LENATN(null)LEN(null)(null)ATN(null)(null)(null)        CONT(null)
13 PRINT"[154] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
15 :
20 [153]"(null)HAT IS THE (null)EMP IN ASC PRINT#:";:[141] 60500:T[178][197](B$)
30 [153]"(null)HAT IS THE WIND VELOCITY IN (null).(null).LEFT$":[153]"(null)ELOCITY PRINT#:";
35 [141]60500:V[178][197](B$):[139]V[179]0 [167] 10
40 T1[178]T:V1[178](V[172]1609.35)[173]3600:TC[178]33[171]((T[171]32)[172](5[173]9))
50 H[178](10.45[170](10[172][186](V1))[171]V1)[172]TC:X[178]H[171]506.784:[139]X[179]0[167]X1[178]T1:[137]70
60 X1[178]50[171](X[173]12.3):X1[178][181](((X1[172]10)[170]5)[173]10)
70 [153]"FOR(null)IND LENHILL (null)EMPERATURE = ";X1
80 [153]"OPEN STR$O YOU WISH TO CALCULATE ANOTHER?"
81 [153]"             (null)PRINT#)OPENES (null)(null) (null)PRINT#)OPENO"
82 [161]A$:[139]A$[178]""[167] 82
85 [139]A$[178]"Y"[167] 11
86 [139]A$[178]"N"[167] 100
87 [137] 82
100 [153]"        (null)(null)RIGHT$(null) : ATNRE YOU SURE?
101 PRINT"               [217][152])ES [207][210] [206][152])O
102 [161]A$:[139]A$[178]""[167] 102
103 [139]A$[178]"Y"[167] 150
104 [139]A$[178]"N" [167] 11
105 [137] 102
150 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
151 [139] ER[179][177]63 [167] [153]"LOAD":[128]
152 [147]"HELLO CONNECT",8
155 [128]
60000 [143]
60010 [153]"LOAD"
60020 [153]
60030 [153]
60040 [153]"   LISTOR````````````````````````````````^"
60050 [153]"   }OR``````````````````````````````^LIST}"
60060 [153]"   }}                              }LIST}"
60070 [153]"   }}     POKEl o a d s t a r          }LIST}"
60080 [153]"   }}      PRINT#l o a d s t a r         }LIST}"
60090 [153]"   }}       LISTl o a d s t a r        }LIST}"
60100 [153]"   }}        l o aCLOSEd s tCLOSEa r       }LIST}"
60110 [153]"   }}                              }LIST}"
60120 [153]"   }}          pRESENTS            }LIST}"
60130 [153]"   }}                              }LIST}"
60140 [153]"   }}    FORwind chill calculator     }LIST}"
60150 [153]"   }}                              }LIST}"
60160 [153]"   }}     CONTBY bILLY d. mULLINS      }LIST}"
60170 [153]"   }}                              }LIST}"
60180 [153]"   }}          LIST(c) 1987            }LIST}"
60190 [153]"   }}                              }LIST}"
60200 [153]"   }/``````````````````````````````EXPLIST}"
60210 [153]"   /````````````````````````````````EXP"
60220 [153]
60230 [153]"  VERIFYpRESS aNY kEY wHEN rEADY TO cONTINUE"
60240 [153]
60250 [153]"";
60255 [161]A$:[139]A$[178]""[167] 60255
60256 [142]
60500 B$[178]"":[153]"TO";
60501 [129]X[178]1[164]10
60505 [161]A$:[139]A$[178]""[167] 60505
60508 [139]A$[178][199](20)[175]X[177]1 [167] X[178]X[171]1:B$[178][200](B$,X[171]1):[153]"CMDCMD  CMDCMDTO";:[137]60505
60510 [139] A$[178][199](20) [167] 60505
60511 [139]A$[178][199](13) [167] [153]"CMD ":[142]
60512 [139]A$[179]"0"[176]A$[177]"9"[167] 60505
60515 [139] X[177]3 [167] 60505
60520 B$[178]B$[170]A$:[153]"CMD"A$;:[153]"TO";:[130]